home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / shell / AUSH_v317.lha / AUSH / InstallAUSH < prev    next >
Text File  |  1994-04-24  |  2KB  |  77 lines
  1. ;---------------------------------------------------------------
  2. ;
  3. ; Installer script for AUSH
  4. ; $VER: 36.0 (24.04.94)
  5. ; Written by Denis GOUNELLE
  6. ;
  7. ;---------------------------------------------------------------
  8. ;
  9. (complete 0)
  10. (set ProgVer  "3.16")
  11. (set ProgName "AUSH")
  12. (set KickVer  (/ (getversion) 65536))
  13. (set SCFlag   (if (AND (> KickVer 35) (exists "S:.SoftConfig")) 1 0))
  14. ;
  15. (set InstallOpt
  16.     (askoptions (prompt "Which part of the program whould you like to install ?")
  17.             (help @askoptions-help)
  18.             (choices "Program" "Locales")
  19.     )
  20. )
  21. ;
  22. ;--------------------- Install the program --------------------
  23. ;
  24. (complete 33)
  25. (if (BITAND InstallOpt 1)
  26.     ((set ProgDir (askdir
  27.         (prompt "Select the directory where to install AUSH")
  28.         (help "The program will be copied in this directory. You may want to install AUSH in a directory which is in your default path.")
  29.         (default "C:")
  30.         )
  31.      )
  32.      (copyfiles (prompt "Installing program")
  33.         (help @copyfiles-help)
  34.         (source ProgName)
  35.         (newname "AUSH")
  36.         (dest ProgDir)
  37.         (infos)
  38.      )
  39.      (if SCFlag
  40.         ((run (cat "SoftConfig ADD AUSH " (tackon ProgDir "AUSH") " FILE " ProgVer))
  41.          (run (cat "SoftConfig ADD .aushrc S:.aushrc FILE " ProgVer))
  42.          (run (cat "SoftConfig ATTACH AUSH .aushrc"))
  43.         )
  44.     ))
  45. )
  46. ;
  47. ;--------------------- Install the locale --------------------
  48. ;
  49. (complete 66)
  50. (if (BITAND InstallOpt 2)
  51.     ((set Langage (askchoice (prompt "Which locale do you want to install ?")
  52.                 (help @askchoice-help)
  53.                 (choices "deutsch" "français" "none")))
  54.      (if (= Langage 0) (set LocaleName "deutsch"))
  55.      (if (= Langage 1) (set LocaleName "français"))
  56.      (if (NOT (= Langage 2))
  57.         ((set LocaleSrc (tackon "catalogs" LocaleName))
  58.          (set LocaleDst (tackon "LOCALE:" LocaleSrc))
  59.          (set LocaleName "AUSH.catalog")
  60.          (if (NOT (exists LocaleDst)) (makedir LocaleDst (prompt "Creating locale directory") (help @makedir-help)))
  61.          (copyfiles (prompt "Installing locale")
  62.             (help @copyfiles-help)
  63.             (source (tackon LocaleSrc LocaleName))
  64.             (dest LocaleDst)
  65.          )
  66.          (if SCFlag
  67.             ((run (cat "SoftConfig ADD " LocaleName " " (tackon LocaleDst LocaleName) " FILE " ProgVer))
  68.              (run (cat "SoftConfig ATTACH AUSH " LocaleName))
  69.             )
  70.         ))
  71.     ))
  72. )
  73. ;
  74. (complete 100)
  75. (set @default-dest ProgDir)
  76.  
  77.